﻿Public Class Admin
    Inherits System.Web.UI.Page

    Dim BL As New BusinessLogic.BLApostas.BLApostas

    Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load

        PreencheDLLs()

    End Sub

    Private Sub PreencheDLLs()

        Dim selecCamp As New ListItem("Selecione um Campeonato", 0)
        Dim selecJornada As New ListItem("Selecione uma Jornada", 0)

        ddlCampeonato.DataSource = BL.ObterCampeonatos
        ddlCampeonato.DataTextField = "Nome"
        ddlCampeonato.DataValueField = "IDCampeonato"
        ddlCampeonato.DataBind()

        ddlCampeonato.Items.Insert(0, selecCamp)

        ddlUpdCampeonato.DataSource = BL.ObterCampeonatos
        ddlUpdCampeonato.DataTextField = "Nome"
        ddlUpdCampeonato.DataValueField = "IDCampeonato"
        ddlUpdCampeonato.DataBind()

        ddlUpdCampeonato.Items.Insert(0, selecCamp)

        ddlJornada.DataSource = BL.ObterJornadas
        ddlJornada.DataTextField = "Descricao"
        ddlJornada.DataValueField = "IDJornada"
        ddlJornada.DataBind()

        ddlJornada.Items.Insert(0, selecJornada)

    End Sub

    Protected Sub lnkPesquisar_Click(ByVal sender As Object, ByVal e As EventArgs) Handles lnkPesquisar.Click

        grdActJornada.DataSource = BL.ObterJornadaCampeonato(ddlUpdCampeonato.SelectedValue, ddlJornada.SelectedValue)
        grdActJornada.DataBind()

    End Sub
End Class